if answer = '' | if answer = 'A' then signal selected(cmd)
if answer = 'D' then signal Download
if left(answer,1) = 'Q' then Signal Quit
if answer = 'C' then signal start
if value(answer) <= tot then do;File = CDPATH||Word(dirs.answer,1)||displayfile;Lists = INDEXPATH||Word(dirs.answer,1)||displayfile;pr;pr MAJ'Loading filelist...'OFF;call printindex(File,Lists);end
if answer = '?' | answer = 'HELP' then signal Help2
if value(answer) > tot then do;pr;pr RED'No such number listed! Try again..'OFF;signal Seldir;End
if answer='K' then do
if exists('T:MRXDL'node'.sfl') then do
Address Command 'Delete T:MRXDL'node'.sfl QUIET'
pr
pr GRN'Marked files now deleted....'OFF
numselect = 0
signal Seldir
end
else do
pr
pr GRN' You have not got any files marked yet!'OFF
signal Seldir
end
end
pr 'Unkown Command 'answer
signal start
SEARCHCD:
PARSE ARG CDtitle,configCD
if exists(PATH'Search.rexx') then address command 'rx 'PATH'Search.rexx 'Node CDtitle ConfigCD
else do
pr 'Cant find Search.rexx in MegaCD directory'
pr 'Or the sysop has not set up the search function.'
call delay 100
end
signal start
REQUESTED:
PARSE ARG CDtitle,configCD
if exists(PATH'MegaReq.rexx') then address command 'rx 'PATH'MegaReq.rexx 'Node CDtitle ConfigCD
else do
pr 'Cant find MegaReq.rexx in MegaCD directory'
pr 'Or the sysop has not set up the Offline Request function.'
call delay 100
end
signal start
PRINTINDEX:
PARSE ARG FILE,LISTS
If ~Exists(LISTS) then do
PR ' Index file not found.. Notify Sysop.'
Call delay 100
signal start
end
else do
Call Open(disp,LISTS, 'R')
f = 1
do h = 1 to skipstart
junk.h = readln(disp)
end
CLS
do k =1 While ~EOF(disp)
fl.k = Readln(disp)
if word(fl.k,1) == D2C('26') then Iterate k
if word(fl.k,1) == '|'then do
if k < 1 then Iterate k
else do
pr left(Fl.k,73)
k = K-1
f = f+1 /**added 3-6-95 for better display of files ***/
IF f//linesperpage=0 THEN DO
Call markprompt(FILE)
END
iterate k
end
end
else do
if substr(fl.k,1,1) == ' ' then do
if k < 1 then Iterate k
else do
pr left('',15)left(Fl.k,71)
k = K-1
f = f+1 /**added 3-6-95 for better display of files ***/